draw_chart <- function() {
  attach(mtcars)                      #绑定数据框mtcars
  plot(wt, mpg)                       #打开了一个图形窗口并生成一幅散点图
  abline(lm(mpg~wt))                  #向图形题啊家了一条最优拟合曲线
  title("Regression of MPG on Weight")#添加标题
  detach(mtcars)                      #为数据框解除了绑定
}

pdf(file="./build/plot_learning_mtcars.pdf")
  draw_chart()
dev.off()

png(file="./build/plot_learning_mtcars.png")
  draw_chart()
dev.off()

jpeg(file="./build/plot_learning_mtcars.jpeg")
  draw_chart()
dev.off()

postscript(file="./build/plot_learning_mtcars.postscript")
  draw_chart()
dev.off()